home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 February / Ahoy_Magazine_86-02_1986_Double_L.d64 / treasure wheel (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  9KB  |  204 lines
  1. 10 rem *******************************
  2. 20 rem **     treasure  wheel       **
  3. 30 rem ***          by             ***
  4. 40 rem ****   bob blackmer        ****
  5. 50 rem ***    6118 s. briar bayou  ***
  6. 60 rem **     houston, tx   77072   **
  7. 70 rem *******************************
  8. 80 data100,1000,-1,400,200,500,0,300,100,1000,tilt,400,200,500,lose a turn,300
  9. 90 data player #,enter letter,f1 to spin,f3 to solve,!!way to go!!
  10. 100 data person,place,thing,phrase,title
  11. 110 rem **** data for person ****
  12. 120 data alexander the great,christopher columbus,astronaut,postmaster,magellan
  13. 130 data ronald reagan,pete rose,sylvester stallone,jimmy carter,johnny carson
  14. 140 data kermit the frog,elvis presley,nuclear scientist,registered nurse
  15. 150 data dolly parton,captain kangaroo,john glenn,roger staubach,john byner
  16. 160 data burt reynolds
  17. 170 rem **** data for place  ****
  18. 180 data west germany,united states of america,astrodome,new england,kentucky
  19. 190 data hawaiian islands,great smoky mountains,north dakota,candy store
  20. 200 data movie theater,west point,beauty parlor,shopping mall,bowling alley
  21. 210 data massachusetts,houston,disneyland,niagara falls,mount rushmore
  22. 220 data central america
  23. 230 rem **** data for thing  ****
  24. 240 data looseleaf paper,ashtray,television set,coffee table,fountain pen
  25. 250 data three piece suit,lawnmower,computer,magazine,steering wheel
  26. 260 data barbecue grill,automobile,motorcycle,parking garage,water cooler
  27. 270 data hardcover book,coffee mug,beer stein,stereo radio,rolltop desk
  28. 280 rem **** data for phrase ****
  29. 290 data never on sunday,once in a blue moon,the early bird gets the worm
  30. 300 data new and improved,sharp as a tack
  31. 310 data a stitch in time saves nine,sweet land of liberty,par for the course
  32. 320 data pretty as a picture,nutty as a fruitcake,out on a limb
  33. 330 data too close for comfort,follow the yellow brick road,watch your step
  34. 340 data day in and day out,once upon a time,to each his own
  35. 350 data a watched pot never boils,april showers bring may flowers
  36. 360 data up a creek without a paddle
  37. 370 rem **** data for title  ****
  38. 380 data the wall street journal,speaker of the house,ghostbusters,head foreman
  39. 390 data master of ceremonies,supreme court justice,new york times,rambo
  40. 400 data queen of england,cannonball run,internal revenue service,star wars
  41. 410 data gone with the wind,major league baseball,vice president,family circle
  42. 420 data united states senator,governor of minnesota,sports illustrated
  43. 430 data duke of earl
  44. 440 sc(3)=0:sc(4)=0:sc(5)=0:sc(6)=0:a=1
  45. 450 dimwh(8),wh$(13),u$(26),cg$(5):forl=1to126:readc$:next:gosub490:c$=""
  46. 460 restore:forl=1to8:readwh(l):next
  47. 470 forl=1to13:readwh$(l):next:forl=1to5:readcg$(l):next
  48. 480 goto540
  49. 490 ck=0:print"[147]loading ml data...":forl=828to980:reada:pokel,a:ck=ck+a:next
  50. 500 ifck<>20211thenprint"error- check ml data statements":end
  51. 510 ck=0:print"[147]loading sprite data":forl=12288to12864:reada:pokel,a:ck=ck+a:next
  52. 520 ifck<>9993thenprint"error- check sprite data statements":end
  53. 530 a=1:return
  54. 540 v=53248:s=54272:p=192:q=193:pr=65520:n=781:e=rnd(-ti):sp$="             "
  55. 550 gosub1420:x=9:y=24:u=1:sc(1)=0:sc(2)=0:forl=1to26:u$(l)="":next
  56. 560 pokev+39,0:pokev+40,7:pokev+41,7:pokev+3,108:pokev+5,108:pokev+2,114
  57. 570 pokev+4,139:pokev,116:pokev+1,101:pokev+21,7
  58. 580 poke2041,p:poke2042,q:poke2040,q+7
  59. 590 forl=stos+24:pokel,0:next:pokes+24,143:pokes+18,129:pokes+14,129
  60. 600 cl=fre(0):rem **** spin ??? ****
  61. 610 poken+2,0:poken,14:poken+1,26:syspr:print"[159]"wh$(9);a
  62. 620 poken+2,0:poken,16:poken+1,26:syspr:print"[159]"wh$(11)
  63. 630 poken+2,0:poken,18:poken+1,26:syspr:print"[159]"wh$(12)
  64. 640 poke198,0:wait198,1:getan$:ifan$<>"[133]"andan$<>"[134]"then640
  65. 650 ifan$=chr$(134)then850
  66. 660 gosub1080:gosub910:ifb=3thengosub1100:a=a+1:ifa=3thena=1
  67. 670 ifb=3thengosub830:goto600
  68. 680 ifb=7thenfortt=1to3:gosub810:next:a=a+1:ifa=3thena=1
  69. 690 ifb=7then600
  70. 700 rem **** enter your letter ****
  71. 710 poken+2,0:poken,12:poken+1,29:syspr:printwh$(b):goto720
  72. 720 poken+2,0:poken,14:poken+1,26:syspr:printwh$(9);a
  73. 730 poken+2,0:poken,16:poken+1,25:syspr:printwh$(10)
  74. 740 poken+2,0:poken,18:poken+1,28:syspr:inputa$:ifasc(a$)<65orasc(a$)>91then740
  75. 750 iflen(a$)>1then740
  76. 760 gosub1080:l$=a$:gosub1000:ifw=1thenw=0:goto710
  77. 770 gosub1180:ifg=0thengosub810:goto790
  78. 780 ifg>0thengosub1100:gosub1230:a=a-1
  79. 790 a=a+1:ifa=3thena=1
  80. 800 goto600
  81. 810 pokes,180:pokes+1,5:pokes+5,14:pokes+6,146:pokes+4,17:forzz=1to300:next
  82. 820 pokes+4,16:return
  83. 830 pokes,180:pokes+1,5:pokes+5,14:pokes+6,146:pokes+4,17:forzz=255to1step-1
  84. 840 pokes+1,zz:next:pokes+4,16:return
  85. 850 rem **** solve puzzle ****
  86. 860 poken+2,0:poken,4:poken+1,6:syspr:inputa$
  87. 870 ifa$=b$thensc(a)=sc(a)+100:gosub1130:goto1270
  88. 880 ifa$<>b$thena$="":poken+2,0:poken,4:poken+1,6:syspr:printsp$sp$sp$
  89. 890 gosub810:gosub810:a=a+1:ifa=3thena=1
  90. 900 goto600
  91. 910 rem **** spin the wheel ****
  92. 920 pokes+1,10:pokes+5,5:pokes+6,67
  93. 930 forlo=1toint(rnd(1)*7)+4:pokes+4,33
  94. 940 forl=114to89step-6:pokev+2,l:pokev+4,l+25:next:p=p+2:ifp=200thenp=192:pokes+4,32
  95. 950 poke2041,p:pokes+4,33
  96. 960 forl=114to89step-6:pokev+4,l:pokev+2,l+25:next:q=q+2:ifq=201thenq=193:pokes+4,32
  97. 970 poke2042,q:nextlo:e=int(rnd(1)*7)+3:forl=1toe:gosub990:sys828:next
  98. 980 b=peek(684)-191:return
  99. 990 pokes+1,10:pokes+5,5:pokes+6,67:pokes+4,33:pokes+4,32:return
  100. 1000 rem **** used letters ****
  101. 1010 t=1
  102. 1020 ifu$(t)=l$thenw=1:return
  103. 1030 ifu$(t)<>l$thent=t+1:ift=27then1050
  104. 1040 goto1020
  105. 1050 u$(u)=l$:u=u+1:poken+2,0:poken,x:poken+1,y:syspr:printl$:y=y+1:ify=37thenx=10:y=24
  106. 1060 ifx=10andy=37thenend
  107. 1070 return
  108. 1080 rem **** clear player area ****
  109. 1090 forl=12to18step2:poken+2,0:poken,l:poken+1,24:syspr:printsp$:next:return
  110. 1100 rem **** players score ****
  111. 1110 forl=1tog:sc(a)=sc(a)+wh(peek(684)-191):next
  112. 1120 ifb=3thensc(a)=0
  113. 1130 ifa=1thenpoken+2,0:poken,21:poken+1,32:syspr:print"      "
  114. 1140 ifa=1thenpoken+2,0:poken,21:poken+1,32:syspr:printsc(a)
  115. 1150 ifa=2thenpoken+2,0:poken,23:poken+1,32:syspr:print"      "
  116. 1160 ifa=2thenpoken+2,0:poken,23:poken+1,32:syspr:printsc(a)
  117. 1170 return
  118. 1180 yy=8:g=0:print"[159]":forl=1tolen(b$):k$=mid$(b$,l,1)
  119. 1190 ifl$=k$thenpoken+2,0:poken,2:poken+1,yy:syspr:printl$:gosub1220:yy=yy+1:g=g+1:next
  120. 1200 ifl$<>k$thenyy=yy+1:next
  121. 1210 return
  122. 1220 pokes+1,129:pokes+5,9:pokes+6,5:pokes+4,17:forzz=1to300:next:pokes+4,16:return
  123. 1230 k=1112:l=1:rem * letters filled? *
  124. 1240 ifpeek(k)=32andmid$(b$,l,1)<>" "thenreturn
  125. 1250 k=k+1:l=l+1:ifl>len(b$)thensc(a)=sc(a)+100:goto1270
  126. 1260 goto1240
  127. 1270 print"[147]"tab(11)"puzzle is solved":printtab(12)wh$(13):print""tab(11)wh$(9)a"wins!"
  128. 1280 ifa=1thensc(3)=sc(3)+1:sc(5)=sc(5)+sc(1)
  129. 1290 ifa=2thensc(4)=sc(4)+1:sc(6)=sc(6)+sc(2)
  130. 1300 poke53269,0
  131. 1310 print""tab(8)"games won[146]"tab(19)"total points[146]"
  132. 1320 print""tab(4);wh$(9)"1:"sc(3)tab(25)sc(5)
  133. 1330 print""tab(4);wh$(9)"2:"sc(4)tab(25)sc(6)
  134. 1340 ifsc(3)+sc(4)=10thenprint""tab(11)"another set (y/n)?":cp=1:goto1360
  135. 1350 print""tab(11)"play again (y/n)?"
  136. 1360 forl=10to150step10:pokes,180:pokes+1,l:pokes+5,14:pokes+6,146:pokes+4,17
  137. 1370 forzz=200to225:pokes+1,zz:next:next:pokes+4,16
  138. 1380 poke198,0:wait198,1:getb$:ifb$<>"y"andb$<>"n"then1380
  139. 1390 ifcp=1andb$="y"thenpoke53269,0:run
  140. 1400 ifb$="y"thenpoke53269,0:restore:goto460
  141. 1410 end
  142. 1420 print"[147]"
  143. 1430 printtab(7)"[144][175][175][175][175][175][175][175][175][175][175][175][175]"
  144. 1440 printtab(6)"[158][169]     [146]       [223][146]    [159]used  letters"
  145. 1450 printtab(5)"[158][169]      [146]  [158]      [223][146]   [144][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  146. 1460 printtab(4)"[158][169]       [146][144]  [158]       [223]"
  147. 1470 printtab(3)"[158][169]    [146][169]        [158][146][223]    [223]"
  148. 1480 printtab(3)"[158]    [146][169]          [158][146][223]    [146][144] [195][195][195][195][195][195][195][195][195][195][195][195][195]"
  149. 1490 printtab(3)"[158]                [158]    "
  150. 1500 printtab(3)"[158]         [144][146][213][201]     [158]    "
  151. 1510 printtab(3)"[158]         [144][146][202][203]     [158]    "
  152. 1520 printtab(3)"[158]                [158]    "
  153. 1530 printtab(3)"[158]    [223]          [158][169]    "
  154. 1540 printtab(3)"[158][223]    [223]        [158][169]    [146][169]"
  155. 1550 printtab(4)"[158][223]                [146][169]"
  156. 1560 printtab(5)"[158][223]   category   [146][169]"
  157. 1570 printtab(6)"[158][223]     [205][206]     [146][169]"
  158. 1580 printtab(7)"[144][176][195][195][195][195][195][195][195][195][195][195][174]   [159]"wh$(9)"1:":printtab(7)"[144][194]          [194]"
  159. 1590 printtab(7)"[144][173][195][195][195][195][195][195][195][195][195][195][189]   [159]"wh$(9)"2:"
  160. 1600 z=int(rnd(1)*5)+1:poken+2,0:poken,22:poken+1,10:syspr:print"[159]"cg$(z)
  161. 1610 k=z-1:ifk=0thenforl=1toint(rnd(1)*20)+1:readb$:next:yy=8:goto1630
  162. 1620 forl=1tok*20:readb$:next:forl=1toint(rnd(1)*20)+1:readb$:next:yy=8
  163. 1630 k=len(b$):forl=1tok
  164. 1640 ifmid$(b$,l,1)<>" "thenpoken+2,0:poken,3:poken+1,yy:syspr:print"[144]-":yy=yy+1:next:goto1660
  165. 1650 poken+2,0:poken,3:poken+1,yy:print" ":yy=yy+1:next
  166. 1660 return
  167. 1670 rem **** ml data ****
  168. 1680 data 162,115,160,140,142,2,208,140,4,208,136,202,224,90,208,9
  169. 1690 data 202,202,202,142,2,208,76,91,3,32,182,3,76,64,3,238
  170. 1700 data 249,7,238,249,7,173,249,7,201,200,208,5,169,192,141,249
  171. 1710 data 7,173,27,212,201,128,16,56,162,115,160,140,142,4,208,140
  172. 1720 data 2,208,136,202,224,90,208,3,76,141,3,32,182,3,76,120
  173. 1730 data 3,202,202,202,142,4,208,238,250,7,238,250,7,173,250,7
  174. 1740 data 201,201,208,5,169,193,141,250,7,173,249,7,141,172,2,96
  175. 1750 data 173,250,7,141,172,2,96,234,234,234,169,3,141,170,2,169
  176. 1760 data 255,141,168,2,206,168,2,173,168,2,201,0,208,246,206,170
  177. 1770 data 2,173,170,2,201,0,208,231,96
  178. 1780 rem **** sprite data ****
  179. 1790 data 0,16,0,48,16,12,0,80,0,0,16,0,0,16,0,0,16,0,0,84,0,0,0,0
  180. 1800 data 0,84,0,1,1,0,1,1,0,1,1,0,1,1,0,0,84,0,0,0,0,0,84,0
  181. 1810 data 1,1,0,1,1,0,1,1,0,1,1,0,0,84,0,0,0,0,0,48,16,12,0,80
  182. 1820 data 0,0,16,0,0,16,0,0,84,0,0,0,0,0,84,0,1,1,0,1,1,0,0,84
  183. 1830 data 0,0,0,0,0,84,0,1,1,0,1,1,0,0,84,0,0,0,0,0,84,0,1,1
  184. 1840 data 0,1,1,0,0,84,0,0,0,0,0,48,84,12,0,16,0,0,16,0,0,16,0,0
  185. 1850 data 0,0,0,40,0,0,16,0,0,16,0,0,40,0,0,0,0,0,64,0,0,64,0,0
  186. 1860 data 64,0,0,84,0,0,0,0,0,84,0,0,16,0,0,16,0,0,16,0,0,0,0,0
  187. 1870 data 0,4,0,48,20,12,0,36,0,0,132,0,1,4,0,1,85,0,0,4,0,0,0,0
  188. 1880 data 0,84,0,1,1,0,1,1,0,1,1,0,1,1,0,0,84,0,0,0,0,0,84,0
  189. 1890 data 1,1,0,1,1,0,1,1,0,1,1,0,0,84,0,0,0,40,0,48,130,12,0,2
  190. 1900 data 0,0,4,0,0,40,0,0,128,0,1,85,0,0,0,0,0,84,0,1,1,0,1,1
  191. 1910 data 0,1,1,0,1,1,0,0,84,0,0,0,0,0,84,0,1,1,0,1,1,0,1,1
  192. 1920 data 0,1,1,0,0,84,0,0,0,170,0,48,128,12,0,168,0,0,2,0,0,2,0,0
  193. 1930 data 130,0,0,84,0,0,0,0,0,84,0,1,1,0,1,1,0,1,1,0,1,1,0,0
  194. 1940 data 84,0,0,0,0,0,84,0,1,1,0,1,1,0,1,1,0,1,1,0,0,84,0,0
  195. 1950 data 133,74,149,132,72,16,132,74,148,132,64,144,132,64,144,165
  196. 1960 data 74,149,0,0,0,0,40,0,0,68,0,0,170,0,0,130,0,0,130,0,0,130,0,0
  197. 1970 data 0,0,170,74,145,34,72,153,34,73,21,34,74,21,34,73
  198. 1980 data 19,33,136,145,0,0,0,0,0,170,0,49,1,12,0,1,0,0,21,0,0,1,0,1
  199. 1990 data 1,0,0,170,0,0,0,0,0,84,0,1,1,0,1,1,0,1,1,0,1,1,0,0
  200. 2000 data 84,0,0,0,0,0,84,0,1,1,0,1,1,0,1,1,0,1,1,0,0,84,0,0
  201. 2010 data 0,126,0,0,60,0,0,60,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24,0
  202. 2020 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  203. 2030 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,44
  204.